home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / D-F / FSP 2.6 / FSP Control.rev.gillett < prev    next >
Encoding:
Text File  |  1989-09-18  |  2.8 KB  |  113 lines  |  [TEXT/QED1]
  1. *
  2. * This FSP Control is functionally equivalent to FSP Control1.gillett
  3. *  but was modified (by the FSP author) to show how macros can improve
  4. * the readability , and reduce the possibility of a typing error.
  5. *
  6. * This version was further modified to take advantage of the new capabilities
  7. * of the FSP 2.6 CONCATENATE.
  8. *
  9. DEFINE "LOC" "XP150:Download Folder"
  10. DEFINE "NEW" "LOC:NewFiles"
  11. DEFINE "Flag" "NO"                 ;YES for monthly file delete ops only
  12. *                                  ;NO at all other times
  13. CLEAR
  14. SAVE "NEW"  ; Clear out NEW section.
  15. *
  16. DEFINEMACRO "ProcSect" 
  17. CONCATENATE "Sect" "LOC:" "@1:" "@1DOWN"
  18. * E.g.: @1 = "COMM"  ; then "Sect" = "XP150:Download Folder:COMM:COMMDOWN"
  19. SHOWSYMBOL "Sect"
  20. CONCATENATE "BUSect"  "LOC:" "@1:COPY OF " "@1DOWN"
  21. * E.g.: @1 = "COMM"  ; 
  22. *  then "BUSect" = "XP150:Download Folder:COMM:COPY OF COMMDOWN"
  23. SHOWSYMBOL "BUSect"
  24. LOAD "Sect" 
  25. PURGE "Flag-"
  26. PURGE/DELETE "Flag"
  27. SORT/TITLE
  28. SAVE "Sect"
  29. SAVE "BUSect"
  30. SORT/DATE
  31. CONCATENATE "Sect" "LOC:" "@1:" "@1BYDATE"
  32. * E.g.: @1 = "COMM"  ; 
  33. *  then "Sect" = "XP150:Download Folder:COMM:COMMBYDATE"
  34. SHOWSYMBOL "Sect"
  35. SAVE "Sect"
  36. DELETE/AGE "5"
  37. PURGE
  38. ADDTO "NEW"
  39. ENDMACRO
  40. *
  41. ProcSect "COMM"
  42. ProcSect "D/AS"
  43. ProcSect "ECHOS"
  44. ProcSect "FONTS"
  45. ProcSect "GAMES"
  46. ProcSect "HYPER"
  47. ProcSect "HYPER2"
  48. ProcSect "LASER"
  49. ProcSect "MACII"
  50. ProcSect "MISC"
  51. ProcSect "NSOFT"
  52. ProcSect "PAINT"
  53. ProcSect "SOUND"
  54. ProcSect "TEXT"
  55. ProcSect "UTIL"
  56. *
  57. LOAD "XP150:Upload Folder:Upload"
  58. PURGE
  59. SAVE "XP150:Upload Folder:Upload"
  60. *
  61. LOAD "NEW"
  62. SORT/DATE
  63. SAVE "NEW"
  64. END
  65.  
  66.  
  67.  
  68. CLEAR
  69. DEFINEMACRO "Check"         ;Check all files for age, proper path,
  70. LOAD "@1"                   ;delete where necessary
  71. DELETE/AGE "365"
  72. CHECKPATH                   ;Run standard FSP Control right after this
  73. PURGE/DELETE                ;to rebuild all file sections
  74. SORT/TITLE
  75. SAVE "@1"
  76. ENDMACRO
  77. DEFINE "Path" "XP150:Download Folder"
  78. Check "Path:Comm:CommDown"
  79. Check "Path:D/As:D/AsDown"
  80. Check "Path:Echos:EchosDown"
  81. Check "Path:Fonts:FontsDown"
  82. Check "Path:Games:GamesDown"
  83. Check "Path:Hyper:HyperDown"
  84. Check "Path:Hyper2:Hyper2Down"
  85. Check "Path:Laser:LaserDown"
  86. Check "Path:MacII:MacIIDown"
  87. Check "Path:Misc:MiscDown"
  88. Check "Path:NSoft:NSoftDown"
  89. Check "Path:Paint:PaintDown"
  90. Check "Path:Sound:SoundDown"
  91. Check "Path:Text:TextDown"
  92. Check "Path:Util:UtilDown"
  93. CLEAR
  94. DEFINE "Path" "XP150:Download Folder"
  95. ADD "Path:Comm:CommDown"
  96. ADD "Path:D/As:D/AsDown"
  97. ADD "Path:Fonts:FontsDown"
  98. ADD "Path:Games:GamesDown"
  99. ADD "Path:Hyper:HyperDown"
  100. ADD "Path:Hyper2:Hyper2Down"
  101. ADD "Path:Laser:LaserDown"
  102. ADD "Path:MacII:MacIIDown"
  103. ADD "Path:Misc:MiscDown"
  104. ADD "Path:NSoft:NSoftDown"
  105. ADD "Path:Paint:PaintDown"
  106. ADD "Path:Sound:SoundDown"
  107. ADD "Path:Text:TextDown"
  108. ADD "Path:Util:UtilDown"
  109. FORMAT "TITLE+SECT:12+SIZEK+DATE+UPLDR+CR:0+DESCA"
  110. SORT/TITLE
  111. SAVETEXT/FORMAT "HD20:Host Files:AllFiles.txt"
  112. END
  113.